Public Class Form1
    Dim transform As TransFormClass

    Dim x As Integer = 1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        transform = New TransFormClass
        'MsgBox(PerPixelAlpha.Conversions.CompressString("She sells sea shells on the sea shore!"))
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        TransForm.Opacity = TrackBar1.Value
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		transform.StartFade(1000)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        transform.Refresh()
    End Sub

End Class